* Keep comp-subr-list into pure space

Sad pure space is not effective nowdays but anyway... should go there.

diff --git a/src/lread.c b/src/lread.c
index 005528782d03f377f6970070cdd0bc959b39b45f..8b6db92cca9b581634d2dbab33e8a52d86b19e22 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -4405,7 +4405,7 @@ defsubr (union Aligned_Lisp_Subr *aname)
   XSETSUBR (tem, sname);
   set_symbol_function (sym, tem);
 #ifdef HAVE_NATIVE_COMP
-  Vcomp_subr_list = Fcons (tem, Vcomp_subr_list);
+  Vcomp_subr_list = Fpurecopy (Fcons (tem, Vcomp_subr_list));
 #endif
 }